#!/usr/bin/perl

use strict;
use File::Find ();

use vars qw/*name *dir *prune/;
*name	= *File::Find::name;
*dir	= *File::Find::dir;
*prune	= *File::find::prune;

sub wanted;

File::Find::find({wainted => \&wanted}, '.');
exit;

sub wanted {
	/^.*\.pm\z/s 
	&& print("$name\n");
}